home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / M7.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-04-15  |  1.0 KB  |  40 lines
  1. 0  CLS:PRINT
  2. 10   PRINT "COORDINATE CONVERSION"
  3. 20   PRINT 
  4. 30   PRINT "     ( 1=CARTESIAN TO POLAR)"
  5. 40   PRINT "     (-1=POLAR TO CARTESIAN)"
  6. 50   PRINT "     ( 0=END PROGRAM)"
  7. 60   PRINT "WHICH DIRECTION";
  8. 70   INPUT D
  9. 80   IF D = 0 THEN 380
  10. 90   IF D =  - 1 THEN 320
  11. 100   PRINT "X,Y";
  12. 110   INPUT X,Y
  13. 120   IF X = 0 THEN 170
  14. 130   IF Y = 0 THEN 260
  15. 140   PRINT "R = "; INT ( SGN (X) *  SQR (X ^ 2 + Y ^ 2) * 100 + 0.5) / 100;",";
  16. 150   PRINT "  A = "; INT ( ATN (Y / X) * 180 / 3.14159 * 100 + 0.5) / 100
  17. 160   GOTO 60
  18. 170   IF Y = 0 THEN 240
  19. 180   PRINT "R = "; ABS (Y);",";
  20. 190   IF Y < 0 THEN 220
  21. 200   PRINT "  A = 90"
  22. 210   GOTO 60
  23. 220   PRINT "  A = 270"
  24. 230   GOTO 60
  25. 240   PRINT "R = 0,  A = 0"
  26. 250   GOTO 60
  27. 260   PRINT "R = "; ABS (X);",";
  28. 270   IF X < 0 THEN 300
  29. 280   PRINT "  A = 0"
  30. 290   GOTO 60
  31. 300   PRINT "  A = 180"
  32. 310   GOTO 60
  33. 320   PRINT "R,A";
  34. 330   INPUT R,A
  35. 340  M = (A -  INT (A / 360) * 360) * 3.14159 / 180
  36. 350   PRINT "X = "; INT (R *  COS (M) * 100 + 0.5) / 100;",";
  37. 360   PRINT " Y = "; INT (R *  SIN (M) * 100 + 0.5) / 100
  38. 370   GOTO 60
  39. 380   RUN "MATH"
  40.